home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacAdvocate 2
/
MACADVCT.ISO
/
mac
/
Goodies
/
Fun Stuff
/
Utilities
/
UltraFind
/
AppleScript™ Examples
/
UTF Get Version
< prev
Wrap
Text File
|
1996-03-15
|
1KB
|
37 lines
copy (the version of application "UltraFind 2.2") to currentVersion
if currentVersion is less than "2.1.2" then
display dialog "To run this script you need version 2.1.2 or greater of UltraFind" & return & return & ┬
"The Current version of UltraFind is only " & currentVersion buttons "Cancel"
else
tell application "UltraFind 2.2"
clear
set the text of fileName of its searchRoutine to "SimpleText"
set the fileType of its searchRoutine to "APPL"
scan
end tell
copy the result to numFiles
if numFiles is greater than 0 then
repeat with fileNum from 1 to numFiles
tell application "UltraFind 2.2"
copy (the fileName of fileRecord fileNum) to fName
copy (the fileCreator of fileRecord fileNum) to fCreator
copy (the fileType of fileRecord fileNum) to fType
copy (the version of fileRecord fileNum) to fVersion
if fVersion is equal to "" then set fVersion to "N/A"
copy (the accessPath of fileRecord fileNum) to fPath
end tell
display dialog "Found file " & (fileNum as text) & " of " & (numFiles as text) & return & return & ┬
"Filename : " & fName & return & ┬
"Creator : '" & fCreator & "'" & return & ┬
"Type : '" & fType & "'" & return & return & ┬
"Version : '" & fVersion & "'" & return & ┬
"Where :" & return & return & fPath
end repeat
end if
end if